home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Workbench Add-On
/
Workbench Add-On - Volume 1.iso
/
Dev
/
Amiga-E
/
E_v3.2a
/
Src
/
Tools
/
File
/
filetest.e
< prev
Wrap
Text File
|
1992-09-02
|
285b
|
14 lines
-> test files
MODULE 'tools/file', 'tools/exceptions'
PROC main() HANDLE
DEF m,l,n,list,x,y=1
m,l:=readfile(arg)
WriteF('file has \d lines:\n\n',n:=countstrings(m,l))
list:=stringsinfile(m,l,n)
ForAll({x},list,`WriteF('\d\t\s\n',y++,x))
EXCEPT
report_exception()
ENDPROC